home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / nw126-3.sda / XREF EDITOR 1.20 (.txt) < prev   
Commodore BASIC  |  2009-10-10  |  2KB  |  50 lines
  1. 0 REM"[141]
  2. 1 [143]OPEN1,8,15,"I0":PRINT#1,"S0:XREF ED*":CLOSE1:SAVE"0:XREF EDITOR 1.20",8
  3. 2 [143]"GOSUBCLR
  4. 3 REM"::::::::::::::::::::::::::::::
  5. 4 [143]"::        (null)VAL(null)(null)(null)(null)(null) 64        ::
  6. 5 REM"::   [195][207][208][217][210][201][199][200][212] 1987, 1988   ::
  7. 6 [143]"::       PEEK(null) (null)ATN(null) (null)VAL(null)RIGHT$(null)       ::
  8. 7 REM ::::::::::::::::::::::::::::::
  9. 8 REM"[141]
  10. 60 [153]"LOAD";:[151]53280,0:[151]53281,0:[151]650,128
  11. 80 NU$[178][199](0):CR$[178][199](13):C2$[178]CR$[170]CR$:[134]OL(200),NW(200)
  12. 90 [153][163]7)"RIGHT$STR$ LEN(null)(null)(null)(null) (null)VALASCVAL(null)VAL(null)LENVAL VALSTR$RIGHT$(null)(null)(null)"[163]47)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  13. 91 PRINTCR$"[212]HIS PROGRAM IS TO BE USED ANY TIME TO
  14. 92 [153]"CHECK, EDIT OR REMOVE RIGHT$STR$ TRANSLATIONS.
  15. 93 PRINT"[201]F FOR SOME REASON, YOU NEED TO CHANGE
  16. 94 [153]"SOMEONES RIGHT$STR$ NUMBER, INSTEAD OF TELLING
  17. 95 PRINT"THEM WHAT THE NEW [201][196] IS, SIMPLY [193][196][196]
  18. 96 [153]"THEIR (null)(null)STR$ AND (null)VAL(null) RIGHT$STR$ NUMBER WITH THIS
  19. 97 PRINT"PROGRAM.
  20. 100 [151]198,0:[133]"SQRTEMP XREF ON STR$EV,STR$RV,RIGHT$NIT 8 , 0 , I0CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";DV,DR$,IN$
  21. 110 DR$[178]DR$[170]":":[160]15:[159]15,DV,15,IN$
  22. 120 [159]8,DV,8,DR$[170]"SQRTEMP XREF":[141]510:[139]ER[167][160]8:[138]
  23. 130 A[178]1:[153]C2$"(null)AIT...
  24. 140 INPUT#8,OL(A),NW(A):SR=ST:IFSR=0THENA=A+1:POKE53280,1:POKE53280,0:GOTO140
  25. 150 CLOSE8
  26. 160 PRINT"[147]     [207][204][196][192][192][192][206][197][215]   [158]([200][207][205][197]=[208]AUSE)
  27. 170 [129]I[178]1[164]A
  28. 175 [161]X$:[139]X$[178]""[167]500
  29. 180 [153][196](I)") "[163]3)OL(I)[163]10)NW(I)
  30. 190 [130]
  31. 200 [153]"(STR$)ELETE,((null))IST,(ATN)DD,((null))AVE,((null))UIT";:[133]A$
  32. 210 [139]A$[178]"L"[167]160
  33. 215 [139]A$[178]"D"[167]228
  34. 220 [139]A$[178]"S"[167]280
  35. 225 [139]A$[178]"A"[167]260
  36. 226 [160]15:[128]
  37. 228 [153]CR$"VALNTER NUMBER TO DELETE";:[133]I:[139]I[179]1[176]I[177]A[167]160
  38. 230 [153]CR$"(null)LD RIGHT$STR$ ="OL(I)",(null)EW RIGHT$STR$ ="NW(I)
  39. 240 [153]CR$"STR$ELETE";:[133]A$:[139]A$[179][177]"Y"[167]160
  40. 250 [129]X[178]I[164]A:OL(X)[178]OL(X[170]1):NW(X)[178]NW(X[170]1):[130]:A[178]A[171]1:[137]160
  41. 260 [153]CR$"VALNTER (null)(null)STR$ RIGHT$STR$ (null)(null)(null)PEEKVAL(null)";:[133]OL(A[170]1)
  42. 270 [153]"VALNTER (null)VAL(null) RIGHT$STR$ (null)(null)(null)PEEKVAL(null)";:[133]NW(A[170]1):A[178]A[170]1:[137]160
  43. 280 [153]C2$"(null)CRATCHING OLD...":[152]15,"S"[170]DR$[170]"SQRTEMP XREF":[141]510
  44. 285 [153]"(null)AVING...
  45. 290 OPEN8,DV,8,DR$+"[186]TEMP XREF,S,W":FORI=1TOA
  46. 300 PRINT#8,OL(I)CR$NW(I):NEXT:CLOSE8:GOTO226
  47. 500 GETX$:IFX$=""THEN500
  48. 505 GOTO180
  49. 510 INPUT#15,ER,ER$,T,S:RETURN
  50.